home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2001 April / PC-WELT 4-2001.ISO / software / wsh / streamd.exe / StreamDemo.vbs
Encoding:
Text File  |  2001-01-23  |  1.8 KB  |  66 lines
  1. ' VBScript Source File 
  2. '
  3. ' NAME: <filename>
  4. '
  5. ' AUTHOR: Thorsten Eggeling
  6. ' DATE  : 01.2001
  7. '
  8. ' COMMENT: Dieses Script demonstriert das binΣre Lesen und Schreiben
  9. '          per VBScript
  10. '
  11. '==========================================================================
  12. Dim TempDir, TempFileName
  13. Dim fso, tempfile
  14. Set fso = CreateObject("Scripting.FileSystemObject")
  15.  
  16. TempDir=GetTempFolder
  17.  
  18. TextStreamTestCreate (TempDir & "\pcwTest.bin")
  19. TextStreamTestWrite(TempDir & "\pcwTest.bin")
  20.  
  21. MsgBox("Erledigt.")
  22. Function TextStreamTestCreate (TempFileName)
  23.    Const ForReading = 1, ForWriting = 2, ForAppending = 8
  24.    Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
  25.    Dim f, ts
  26.    fso.CreateTextFile TempFileName 
  27.    Set f = fso.GetFile(TempFileName)
  28.    Set ts = f.OpenAsTextStream(ForWriting, TristateUseDefault)
  29.    For i = 0 to 255
  30.      ts.Write Chr(i)
  31.    Next 
  32.    ts.Close
  33.    End Function
  34.  
  35. Function TextStreamTestWrite(TempFileName)
  36. Const ForReading = 1, ForWriting = 2, ForAppending = 8
  37. Dim f1,f2, ts1, ts2, TheByte
  38. Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
  39. Set f1 = fso.GetFile(TempFileName)
  40. fso.CreateTextFile TempFileName &".copy"
  41. Set f2 = fso.GetFile(TempFileName &".copy")
  42. Set ts1 = f1.OpenAsTextStream(ForReading, TristateUseDefault)
  43. Set ts2 = f2.OpenAsTextStream(ForWriting, TristateUseDefault)
  44.     For i = 0 to 99 
  45.       ts2.write (ts1.read (1))
  46.     Next 
  47.     ts1.read (1)
  48.     ts2.write(Chr(255)) 
  49.  
  50.     For i = 101 to 255
  51.       ts2.write (ts1.read (1))
  52.     Next 
  53.     
  54.  
  55.  
  56. ts1.Close
  57. ts2.Close
  58. End Function
  59.  
  60. Function GetTempFolder
  61.    Dim tfolder, tname, tfile
  62.    Const TemporaryFolder = 2
  63.    Set tfolder = fso.GetSpecialFolder(TemporaryFolder)
  64.    GetTempFolder = tFolder.Path
  65. End Function
  66.